home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1998 January: Mac OS SDK / Dev.CD Jan 98 SDK1.toast / Development Kits (Disc 1) / Interfaces&Libraries / Universal / Interfaces / AIncludes / FixMath.a < prev    next >
Encoding:
Text File  |  1997-08-12  |  6.6 KB  |  288 lines  |  [TEXT/MPS ]
  1. ;
  2. ;    File:        FixMath.a
  3. ;
  4. ;    Contains:    Fixed Math Interfaces.
  5. ;
  6. ;    Version:    Technology:    System 7.5
  7. ;                Release:    Universal Interfaces 3.0.1
  8. ;
  9. ;    Copyright:    © 1985-1997 by Apple Computer, Inc., all rights reserved
  10. ;
  11. ;    Bugs?:        Please include the the file and version information (from above) with
  12. ;                the problem description.  Developers belonging to one of the Apple
  13. ;                developer programs can submit bug reports to:
  14. ;
  15. ;                    devsupport@apple.com
  16. ;
  17. ;
  18.     IF &TYPE('__FIXMATH__') = 'UNDEFINED' THEN
  19. __FIXMATH__ SET 1
  20.  
  21.     IF &TYPE('__TYPES__') = 'UNDEFINED' THEN
  22.     include 'Types.a'
  23.     ENDIF
  24.  
  25.  
  26.  
  27.  
  28. fixed1                            EQU        $00010000
  29. fract1                            EQU        $40000000
  30. positiveInfinity                EQU        $7FFFFFFF
  31. negativeInfinity                EQU        $80000000
  32. ; 
  33. ;    Previously in ToolUtils.i.  Moved here because it makes more sense.
  34. ;
  35.  
  36.     IF ¬ OLDROUTINELOCATIONS THEN
  37. ;
  38. ; pascal Fixed FixRatio(short numer, short denom)
  39. ;
  40.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  41.         _FixRatio:    OPWORD    $A869
  42.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  43.         IMPORT_CFM_FUNCTION FixRatio
  44.     ENDIF
  45.  
  46. ;
  47. ; pascal Fixed FixMul(Fixed a, Fixed b)
  48. ;
  49.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  50.         _FixMul:    OPWORD    $A868
  51.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  52.         IMPORT_CFM_FUNCTION FixMul
  53.     ENDIF
  54.  
  55. ;
  56. ; pascal short FixRound(Fixed x)
  57. ;
  58.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  59.         _FixRound:    OPWORD    $A86C
  60.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  61.         IMPORT_CFM_FUNCTION FixRound
  62.     ENDIF
  63.  
  64.     ENDIF
  65. ;
  66. ; pascal Fract Fix2Frac(Fixed x)
  67. ;
  68.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  69.         _Fix2Frac:    OPWORD    $A841
  70.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  71.         IMPORT_CFM_FUNCTION Fix2Frac
  72.     ENDIF
  73.  
  74. ;
  75. ; pascal long Fix2Long(Fixed x)
  76. ;
  77.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  78.         _Fix2Long:    OPWORD    $A840
  79.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  80.         IMPORT_CFM_FUNCTION Fix2Long
  81.     ENDIF
  82.  
  83. ;
  84. ; pascal Fixed Long2Fix(long x)
  85. ;
  86.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  87.         _Long2Fix:    OPWORD    $A83F
  88.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  89.         IMPORT_CFM_FUNCTION Long2Fix
  90.     ENDIF
  91.  
  92. ;
  93. ; pascal Fixed Frac2Fix(Fract x)
  94. ;
  95.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  96.         _Frac2Fix:    OPWORD    $A842
  97.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  98.         IMPORT_CFM_FUNCTION Frac2Fix
  99.     ENDIF
  100.  
  101. ;
  102. ; pascal Fract FracMul(Fract x, Fract y)
  103. ;
  104.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  105.         _FracMul:    OPWORD    $A84A
  106.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  107.         IMPORT_CFM_FUNCTION FracMul
  108.     ENDIF
  109.  
  110. ;
  111. ; pascal Fixed FixDiv(Fixed x, Fixed y)
  112. ;
  113.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  114.         _FixDiv:    OPWORD    $A84D
  115.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  116.         IMPORT_CFM_FUNCTION FixDiv
  117.     ENDIF
  118.  
  119. ;
  120. ; pascal Fract FracDiv(Fract x, Fract y)
  121. ;
  122.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  123.         _FracDiv:    OPWORD    $A84B
  124.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  125.         IMPORT_CFM_FUNCTION FracDiv
  126.     ENDIF
  127.  
  128. ;
  129. ; pascal Fract FracSqrt(Fract x)
  130. ;
  131.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  132.         _FracSqrt:    OPWORD    $A849
  133.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  134.         IMPORT_CFM_FUNCTION FracSqrt
  135.     ENDIF
  136.  
  137. ;
  138. ; pascal Fract FracSin(Fixed x)
  139. ;
  140.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  141.         _FracSin:    OPWORD    $A848
  142.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  143.         IMPORT_CFM_FUNCTION FracSin
  144.     ENDIF
  145.  
  146. ;
  147. ; pascal Fract FracCos(Fixed x)
  148. ;
  149.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  150.         _FracCos:    OPWORD    $A847
  151.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  152.         IMPORT_CFM_FUNCTION FracCos
  153.     ENDIF
  154.  
  155. ;
  156. ; pascal Fixed FixATan2(long x, long y)
  157. ;
  158.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  159.         _FixATan2:    OPWORD    $A818
  160.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  161.         IMPORT_CFM_FUNCTION FixATan2
  162.     ENDIF
  163.  
  164. ; 
  165. ;    Frac2X, Fix2X, X2Fix, and X2Frac translate to and from
  166. ;    the floating point type "extended" (that's what the X is for).
  167. ;    On the original Mac this was 80-bits and the functions could be
  168. ;    accessed via A-Traps.  When the 68881 co-processor was added,
  169. ;    it used 96-bit floating point types, so the A-Traps could not 
  170. ;    be used.  When PowerPC was added, it used 64-bit floating point
  171. ;    types, so yet another prototype was added.
  172. ;
  173.  
  174. ;
  175. ; pascal extended Frac2X(Fract x)
  176. ;
  177.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  178.         _Frac2X:    OPWORD    $A845
  179.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  180.         IMPORT_CFM_FUNCTION Frac2X
  181.     ENDIF
  182.  
  183. ;
  184. ; pascal extended Fix2X(Fixed x)
  185. ;
  186.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  187.         _Fix2X:    OPWORD    $A843
  188.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  189.         IMPORT_CFM_FUNCTION Fix2X
  190.     ENDIF
  191.  
  192. ;
  193. ; pascal Fixed X2Fix(extended x)
  194. ;
  195.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  196.         _X2Fix:    OPWORD    $A844
  197.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  198.         IMPORT_CFM_FUNCTION X2Fix
  199.     ENDIF
  200.  
  201. ;
  202. ; pascal Fract X2Frac(extended x)
  203. ;
  204.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  205.         _X2Frac:    OPWORD    $A846
  206.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  207.         IMPORT_CFM_FUNCTION X2Frac
  208.     ENDIF
  209.  
  210.  
  211.     IF TARGET_CPU_PPC THEN
  212. ;
  213. ; extern short WideCompare(const wide *target, const wide *source)
  214. ;
  215.     IF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  216.         IMPORT_CFM_FUNCTION WideCompare
  217.     ENDIF
  218.  
  219. ;
  220. ; extern WidePtr WideAdd(wide *target, const wide *source)
  221. ;
  222.     IF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  223.         IMPORT_CFM_FUNCTION WideAdd
  224.     ENDIF
  225.  
  226. ;
  227. ; extern WidePtr WideSubtract(wide *target, const wide *source)
  228. ;
  229.     IF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  230.         IMPORT_CFM_FUNCTION WideSubtract
  231.     ENDIF
  232.  
  233. ;
  234. ; extern WidePtr WideNegate(wide *target)
  235. ;
  236.     IF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  237.         IMPORT_CFM_FUNCTION WideNegate
  238.     ENDIF
  239.  
  240. ;
  241. ; extern WidePtr WideShift(wide *target, long shift)
  242. ;
  243.     IF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  244.         IMPORT_CFM_FUNCTION WideShift
  245.     ENDIF
  246.  
  247. ;
  248. ; extern unsigned long WideSquareRoot(const wide *source)
  249. ;
  250.     IF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  251.         IMPORT_CFM_FUNCTION WideSquareRoot
  252.     ENDIF
  253.  
  254. ;
  255. ; extern WidePtr WideMultiply(long multiplicand, long multiplier, wide *target)
  256. ;
  257.     IF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  258.         IMPORT_CFM_FUNCTION WideMultiply
  259.     ENDIF
  260.  
  261. ;  returns the quotient 
  262. ;
  263. ; extern long WideDivide(const wide *dividend, long divisor, long *remainder)
  264. ;
  265.     IF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  266.         IMPORT_CFM_FUNCTION WideDivide
  267.     ENDIF
  268.  
  269. ;  quotient replaces dividend 
  270. ;
  271. ; extern WidePtr WideWideDivide(wide *dividend, long divisor, long *remainder)
  272. ;
  273.     IF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  274.         IMPORT_CFM_FUNCTION WideWideDivide
  275.     ENDIF
  276.  
  277. ;
  278. ; extern WidePtr WideBitShift(wide *src, long shift)
  279. ;
  280.     IF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  281.         IMPORT_CFM_FUNCTION WideBitShift
  282.     ENDIF
  283.  
  284.     ENDIF    ; TARGET_CPU_PPC
  285.  
  286.     ENDIF ; __FIXMATH__ 
  287.  
  288.